home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / telecomm / bbs / tbeck.lha / ModInfoV3.lha / ModInfoV3.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1994-08-24  |  1.1 KB  |  6 lines
  1. /* ModuleInfo.rexx v3 - Example script from DreamLine CyberNet +45 3582 7043 */;if ~open('f1',arg(1),'R') then signal usage;mod=readch('f1',950);call close(f1);mod=translate(mod,'00'x,xrange('01'x,'1F'x)xrange('7F'x,'FF'x),'00'x);parse var mod modname'00'x 20 mi.1'00'x 49 mi.2'00'x 78 mi.3'00'x 107 mi.4'00'x 136 mi.5'00'x 165 mi.6'00'x 194 mi.7'00'x 223 mi.8'00'x 252 mi.9'00'x 281 mi.10'00'x 310 mi.11'00'x 339 mi.12'00'x 368 mi.13'00'x 397 mi.14'00'x 426 mi.15'00'x 455 mi.16'00'x 484 mi.17'00'x 513 mi.18'00'x 542 mi.19'00'x 571 mi.20'00'x 600 mi.21'00'x 629 mi.22'00'x 658 mi.23'00'x 687 mi.24'00'x 716 mi.25'00'x 745 mi.26'00'x 774 mi.27'00'x 803 mi.28'00'x 832 mi.29'00'x 861 mi.30'00'x 890 mi.31'00'x .;say copies(' ',29)''centre(modname,22)''||'0a'x||'     .'copies('=',68)'.';do r=1 to 30;l=r;r=r+1;m=r;r=r+1;say '     |'left(mi.l,22)'|'left(mi.m,22)'|'left(mi.r,22)'|';end;say "     `"copies('=',22)'|'left(mi.31,22)'|'copies('=',22)"'"||'0a'x||copies(' ',28)"`"copies('=',22)"'";exit;usage:
  2.  
  3. say 'USAGE: (rx) ModInfo.rexx <module>'
  4.  
  5. exit; /* have fun! -> 8*/
  6.